00200	ARRAY D1(801),D2(905),D3(1020),D4(1125),D5(128),D6(45),D7(23),D8(18); 
00300	VARIABLE /R;
00500	REVINIT←1;R←0;
00600	COMPILE;
00700	INSTRUMENT REV;
00800	REV1(R,801,.827,D1);
00900	REV1(R,901,.805,D2);
01000	REV1(R,1011,.783,D3);
01100	REV1(R,1123,.764,D4);
01200	REV2(U1+U2+U3+U4,123,.7,D5);
01300	REV2(U5,43,.7,D6);
01400	REV2(U6,13,.7,D7);
01500	R←0;OUTA←OUTA+U7;
01700	END;
01800	FINISH;